enum {UPTAG=1001, DOWNTAG=1003};

struct mpiexch {
  MYREAL *upsend;
  MYREAL *uprecv;
  MYREAL *downsend;
  MYREAL *downrecv;
  int  up;
  int  down;
  int  nbyte;
  int  post;
};
